00100		TITLE PAPER
00200		ENTRY DOG
00300	IENN=[110]
00400	ISPC=[201004020100]
00500	IZRO=[0]
00600	NONE=[1]
00700	DOG:	0
00800		MOVE 1,0(16)
00900		SOJ 1,
01000		MOVEM 1,NEL#
01100		MOVE 3,@2(16)
01200		AOJ 3,
01300		IMULI 3,1750
01400		MOVE 2,@1(16)
01500		MOVE 5,4(16)
01600		SOJ 5,
01700		MOVEM 5,NEX#
01800		ADD 5,2
01900		MOVEM 3,@5
02000		MOVE 3,@2(16)
02100		MOVE 7,6(16)
02200		SOJ 7,
02300		MOVEM 7,NWOR#
02400		SETZ 7,
02500		MOVE 6,5(16)
02600		SOJ 6,
02700		MOVEM 6,IEXP#
02800		SETZ 1,
02900	KOP:	SETZ 5,
03000	AIOP:	AOJ 1,
03100	TSTG:	CAMLE 1,IENN
03200		JRST RETUR
03300		MOVE 2,NEL
03400		ADD 2,1
03500		MOVE 8,@2
03600		CAMN 8,ISPC
03700		JRST AIOP
03800		SETZ 6,
03900	AKNO:	AOJ 6,
04000		CAMLE 6,@3(16)
04100		JRST NEWR
04200		MOVE 2,NEL
04300		ADD 2,1
04400		MOVE 8,@2
04500		MOVE 4,NWOR
04600		ADD 4,6
04700		CAME 8,@4
04800		JRST AKNO
04900		MOVE 7,NONE
05000		CAML 8,IZRO
05100		JRST NFLET
05200	ICEL:	MOVE 10,1	
05300		ADD 10,7
05400		CAMLE 10,IENN
05500		JRST SKMO
05600		MOVE 2,NEL
05700		ADD 2,10
05800		MOVE 8,@2
05900		CAMN 8,ISPC
06000		JRST NFLET
06100		CAML 8,IZRO
06200		JRST NFLET
06300		MOVE 11,7
06400		ADD 11,6
06500		CAMLE 11,@3(16)
06600		JRST NEWR
06700		MOVE 4,NWOR
06800		ADD 4,11
06900		CAME 8,@4
07000		JRST AKNO
07100		AOJ 7,
07200		JRST ICEL
07300	SKMO:	SOJ 7,
07400	NFLET:	AOJ 3,
07500		MOVE 12,6
07600		IMULI 12,144
07700		ADD 12,7
07800		MOVE 4,IEXP
07900		ADD 4,3
08000		MOVEM 12,@4
08100		ADD 1,7
08200		JRST TSTG
08300	IADI:	AOJ 1,
08400	NEWR:	AOJ 5,
08500		MOVE 13,@3(16)
08600		ADD 13,5
08700		MOVE 2,NEL
08800		ADD 2,1
08900		MOVE 8,@2
09000		MOVE 4,NWOR
09100		ADD 4,13
09200		MOVEM 8,@4
09300		CAML 8,IZRO
09400		JRST IATE
09500		CAMN 1,IENN
09600		JRST IATE
09700		MOVE 2,NEL
09800		ADD 2,1
09900		AOJ 2,
10000		MOVE 8,@2
10100		CAMN 8,ISPC
10200		JRST IATE
10300		CAMGE 8,IZRO
10400		JRST IADI
10500	IATE:	AOJ 3,
10600		MOVE 9,@3(16)
10700		AOJ 9,
10800		IMULI 9,144
10900		ADD 9,5
11000	     	MOVE 4,IEXP
11100		ADD 4,3
11200		MOVEM 9,@4
11300		ADDM 5,@3(16)
11400		JRST KOP
11500	RETUR:	MOVE 2,NEX
11600		ADD 2,@1(16)
11700		ADDM 3,@2
11800		MOVEM 3,@2(16)
11900		JRA 16,6(16)
12000		END